VERSION 5.00
Begin VB.Form frmCreateChan 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   1500
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3990
   Icon            =   "frmCreateChan.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1500
   ScaleWidth      =   3990
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Height          =   375
      Left            =   1800
      TabIndex        =   4
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Default         =   -1  'True
      Height          =   375
      Left            =   2880
      TabIndex        =   3
      Top             =   960
      Width           =   975
   End
   Begin VB.CheckBox chkPrivate 
      Height          =   255
      Left            =   1440
      TabIndex        =   2
      Top             =   600
      Width           =   2055
   End
   Begin VB.TextBox txtChan 
      Height          =   285
      Left            =   1440
      TabIndex        =   1
      Top             =   120
      Width           =   2415
   End
   Begin VB.Label Label1 
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1335
   End
End
Attribute VB_Name = "frmCreateChan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Command1_Click()
If Left(txtChan.Text, 1) <> "#" Then txtChan.Text _
  = "#" + txtChan.Text
If Len(txtChan.Text) < 2 Then
    MsgBox lang.Messages(19), vbOKOnly + vbCritical, lang.Messages(20)
  txtChan.Text = ""
  txtChan.SetFocus
  Exit Sub
End If
If chkPrivate.Value = 1 Then modAC.OnJoinSetPriv = True
txtChan.Text = Replace$(txtChan.Text, " ", "_")
currentChannel = txtChan.Text
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Unload frmChList
Label1.Caption = lang.Messages(21)
chkPrivate.Caption = lang.Messages(22)
Command1.Caption = lang.Buttons(2)
Command2.Caption = lang.Buttons(3)
Me.Caption = lang.Messages(23)

End Sub

